-
<%
Set Rs=getRecord("Select * from tbBasic_sort where Basic_sort_id <>4 order by Basic_sort_id asc")
IF NOT Rs.EOF THEN
DO WHILE NOT RS.EOF
%>
- "><%=rs("Basic_sort_name")%> <% RS.MOVENEXT LOOP END IF RS.CLOSE %>
- 在线留言
<%
if dy = 0 then
%>
<%
else
%>
<%
end if
%>
-
<%
Set rs=getRecord("select * from tbBasic where basic_one_id="&dy&" ORDER BY basic_id ASC ")
if not rs.eof then
totalRecordCount = rs.RecordCount
page_str = getPage(rs,totalRecordCount,4,"message.asp",url_Condition,"line5")
for s=1 to 10
IF rs.eof then EXIT FOR
%>
- &basic_one_id=<%=rs("basic_one_id")%>" title="文章标题：<%= rs("basic_name") %>发布日期：<%= rs("basic_date") %>" target="_blank"> <% if len(rs("basic_name"))>120 then response.Write left(rs("basic_name"),120) &"..." else response.Write rs("basic_name") end if %> <%=rs("basic_date")%> <% rs.movenext next %> <% else response.Write "暂无数据！" end if %>
<%=page_Str%>